home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #2 / Amiga Plus CD - 1995 - No. 2.iso / pd / disktools / jukebox / status.jb < prev    next >
Text File  |  1995-04-11  |  436b  |  22 lines
  1. /* display current playing status */
  2. /* (c) copyright 1992,93 by F.J. Reichert */
  3.  
  4. options results;
  5. inquiry;
  6. say substr(result,9,27);
  7. current status;
  8. play = 'status is "'||result||'",'
  9. current track;
  10. play = play 'track #'||result
  11. current index;
  12. play = play 'index' result
  13. current reltime;
  14. rel = result;
  15. play = play 'since' result
  16. current trktime;
  17. abs = result;
  18. subtime abs rel
  19. rem = result;
  20. say play||', remaining' rem 'of' abs
  21. exit 0;
  22.